home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5820.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  53 lines
  1. 5 GOTO10010
  2. 10 DATAC,0,10,20
  3. 20 DATAxü,nxüž,10,30
  4. 30 DATAx,1,20,40
  5. 40 DATA1/x,-1/xý,30,50
  6. 50 DATAûï,1/(2ûï),40,60
  7. 60 DATAaÂ,aÂloga,50,70
  8. 70 DATAeÂ,eÂ,60,80
  9. 80 DATAeüÂ,neüÂ,70,90
  10. 90 DATAlogx,1/x,80,100
  11. 100 DATAxÂ,xÂ(logx+1),90,110
  12. 110 DATAsinx,cosx,100,120
  13. 120 DATAcosx,-sinx,110,130
  14. 130 DATAtanx,secýx,120,140
  15. 140 DATAcotx,-cosecýx,130,150
  16. 150 DATAsecx,secx¥tanx,140,160
  17. 160 DATAcosecx,-cosecx¥cotx,150,170
  18. 170 DATAsinax,a¥cosax,160,180
  19. 180 DATAcosax,-a¥sinax,170,190
  20. 190 DATAtanax,a¥secýax,180,200
  21. 200 DATAcotax,-a¥cosecýax,190,210
  22. 210 DATAsinžx,1/û(1-xý)          (“y“<ã/2),200,220
  23. 220 DATAcosžx,-1/û(1-xý)           (0<y<ã),210,230
  24. 230 DATAtanžx,1/(1+xý)           (“y“<ã/2),220,240
  25. 240 DATAcotžx,-1/(1+xý)          (“y“<ã/2),230,250
  26. 250 DATAsecžx,"1/(xû(xý-1))    (0<y<ã,xý>1)",240,260
  27. 260 DATAcosecžx,"1/(xû(xý-1))  (“y“<ã/2,xý>1)",250,270
  28. 270 DATAsinhx,coshx,260,280
  29. 280 DATAcoshx,sinhx,270,290
  30. 290 DATAtanhx,sechýx,280,300
  31. 300 DATAcothx,-cosechýx,290,310
  32. 310 DATAsechx,-sechx¥tanhx,300,320
  33. 320 DATAcosechx,-cosechx¥cothx,310,330
  34. 330 DATAsinhžx,1/û(1+xý),320,340
  35. 340 DATAcoshžx,"1/û(xý-1)         (y>0,xý>1)",330,350
  36. 350 DATAtanhžx,1/(1-xý)              (xý<1),340,360
  37. 360 DATAcothžx,1/(1-xý)              (xý>1),350,370
  38. 370 DATAsechžx,-1/(xû(1-xý))        (0<x<1),360,380
  39. 380 DATAcosechžx,-1/(xû(xý+1)),370,380
  40. 10010 MODE8:DIM:x=10:y=380:r=x
  41. 10020 DEFCHR$(255)="A2A49C92A2"
  42. 10030 DEFCHR$(254)="0000FE0000"
  43. 10110 RESTORE(r)
  44. 10120 READm$,n$,b,c
  45. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  46. 10140 CLS:PRINT"y =";m$;TAB(l);l$;"y";CHR$(131);"=";n$;
  47. 10150 z=ASC(INPUT$(1,@))
  48. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  49. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  50. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  51. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  52. 10280 GOTO10150
  53.